home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / science / vpcalc23.zip / E.VPC < prev    next >
Text File  |  1991-09-08  |  840b  |  23 lines
  1. Rem Start of e.VPC
  2.  
  3. VPLOut("e.VPL") @ H "Start of e.VPL log file
  4.  
  5. x This VPCalc code file computes e to over 10000 decimal digits
  6. x To run, start VPCalc.Exe.  At Command: prompt, enter:
  7. x     ----->>>>>  SetMax(11111) Run("e  <<<<<-----;
  8. x The file eNew.VPN will be written to the default drive
  9. x Inspect file eNew.VPN and rename as desired.  Harry Smith, 90/01/06.
  10.  
  11. AutoDisplay(0)     "Turn off Auto display
  12. 10052  M           "Set for 6 extra Super digits
  13. Diag(1)            "Turn on Diags
  14. MExpLNN = 13       "Set NN for ExpL
  15. e = Sq(Exp(0.5));  "Square e to the 1/2 power
  16. Diag(0)            "Turn off Diags
  17. X = 10010  M       "Remove the extra digits
  18. e=                 "Point to e
  19. VPNOut("eNew.VPN") "Establish file name
  20. W                  "Write e to disk file
  21.  
  22. "End of e.VPC"  H@ "Turning off and close Log file
  23.